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DPMSG 


LENGTH OF PRG 


0 0 7 32 


IDENT 


0 0512 
0 0731 
0Q&15 
0 0412 
00105 

ooeio 

0 0 575 
,.g.0-2-43- 

0 0005 
0 0 0 0 0 
0 0730 


6 

7 

. 8 .. 

9 

.9+0 04- 

10 
11 . 

^12' . . 

13 

14 

T5..... 

16 

■-4-7.-. 

18 

19 

20 
21 
22 

. Z3 . 

23+001 


43+001 

44 


ENTRY 

ENTRY 

ENTRY- 

ENTRY 

ENTRY 

.entry^^ 

ENTRY 

gNTR-Y- 

ENTRY 

ENTRY 

ENTRY- 


OPMSG 

accprint 

BUSY 

-e-AtMSF'MT- 

ENOREAD 

HANINT 

MdONTPsET 

MSFLOAD 

__0-G-TPAGK. 

0PM3G 

OPMSGX 

-S-CREAM 

ACCNUM 

.aiTis 

8ITi9 

-8-I-T-2-2-. 

8IT23 

BLANKS 

~e-LRHTWT 

CHQSET 

OIEBIT 

"UXO.... 

DUMPS 

-F-INK.. 

FLAGS 
FREEMEN 
GET8UFF- 
GETMEM 
GETPAGE 
'GXVffOFFF 
IDLE • 
INHI-BIT- 
lOCL 
I0GL6IT 
-i*Oet-E-AR- • 
lOSET 
IRUNPEND 

■KILL.. 

MESFLAG 

NCONWAIT 

NOENDBIT 

N0PI8IT 

NOPWAIT 

NMTWAIT 

OPABORT 

■'0‘prBTT. 

OPTERM 

,C.EW..A-I.X.. 

MACH ERR 


IRUNSIT + NGENOeiT 


PFi 

PSA3LK 

READ 



...53... 

..EXT-. 

S TRT 


54 

EXT 

S'YSCODE 


...5....5.... 

____EXC_ 

__-......-.-...-...............:.............:. 


57 

57+001. 


TAPELIST 

TBLKLIST 

TNUMLIST- 


58 

EXT 

TERMINAL 

. ■ 59 

EXT 

TIMSET ■ 

.....-. -.-.. .....-.- .cc...-. 

....EXT 

..TPD'RTTS.-.....-..■......... ..............:.... 

61 

EXT 

TRMNUM 

.... : . ■ .. : ....... : .. 6 . 2 ,.,^.. 

FXT 

_ _ U..S.8M.A.X.-.- ________________ : __________________......... 

63 

EXT 

USRNUM 

64 

EXT 

VANISH 

65 

EXT 

.. ..WARN————————————— 


0 0 0 00 
cooijr- 
0 0 0 02 
,0.0.00.3... 

0 0 0 00 
00 0 01 
04 0 00 
0 0 035 


IMPURE 

■'XX^-- 

X2 

..,.x.3.,..--..:...^. 

PSA 

PFLOC 

CORE 

NU 


OOOQO 

■4'—- . 

2 

-. 3 ..,.,^-...... 

0 

1 

PFLOC+2+41 
3 58 


REGESTER FILE LOCATION WITH 


o 


o 


































o 

o 


o 

o 

o 


o 

o 

o 

o 

o 

Q 

d 



o' 

O, 

o' 



o 


NO’ffeE'r^'oF.usF'R's^'"....^. 

BASE TWO LOG OF INPUT BUFFER SIZE 
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OPMSG 


^ ¥■ 
. .R 0 U i' IN.E---4: C..-.-0U4:R^^ .-T-HE CONSO LE :r .VPE W.R I..TE.R .. 

* ENTER HITH THE FOLLOWING SEQUENCE! » 

• ECHA.CHARACT-ER-^^^ . ' ^ 

^ ENQ MESSAGE LENGTH IN CHARACTERS * 

^ ENI RETURN,X2 * 


ECHA- 

ENQ 

ENI 

DINT 


OPMSG 


IF THE MESSAGE IS FGR OPERATOR INFORMATION ONLY (SUCH AS 
CARO PUNCH ERROR REMOVE OFFSET CARDS) ENTRY MAY BE MADE TO 
OPMSGX-'-W IF MORE THAN TEN 

MESSAGES ARE ALL READY QUEUED. 

.....CHARACTE^^^^^ .. .. 

-EHiS.ROU-T4NE. -OLOgSERS ..A,.Q.^,-...-A.N0.X-2..-..-..-... 


aY-PRESSIN6 MANUAL INTERRUPT. THE ♦ 
INPUT WILL 8E DONE IMMEDIATLY IF NO OUTPUT IS IN PROGRESS OR * 
AS SOON AS THE CURRENT MESSAGE IS FINISHED. AFTER TYPING IN * 







10 3. 

10 4 

.1,-9. 5 .. 

■ 4 , . 

THE REQUEST 'THE OPERATOR 

..T P. h .fT T.5:.M AOP.T y P... 

SHOULD PRESS MANUAL INTERRUPT AG,AIN. *. 

..AP.-rp.ii..Tnp.....N.A.v.pprcc .. p rcpA T amo. m a wi i ai. 4 . 

1 

o 





106 

107 

4 

4 

INTERRUPT 

TO REDO THE REQUEST. ^ 

: O 

o... 


0 0300 

p 


log 

110 

OPMSGX 

EQU ■ 

4 


' o 


.0 00 0 O' 

000 01 

..„. 0.00 0 .g^^ 

46QQ0032 
20 00 0731 
..0.5-60.0-O-IE- 

"P. 

P 


. 1.11 .. 

112 

... 113 .. 


SO H A 

LOA 

.„a.sg__ 

^"g:FMSWZ . 

BUSY 

1 0 

...SA'V'fc" THE"'MESSAGE' '.ADDRESS.... 

CHECK NUMaER CF QUEUED MESSAGES 
.__..I6N0RE--.TH.IS ONE I-F MORE. THAN 10. 


o 

O.. 

0000 3 
00004 

00005 

diOQGOO? 

01200000 

0 0 0 0 5 
46 00 0032 

P 

P 


114 

115 

116 

117 
il 8 

OPMSG 

UJP 

UJP 

EQU 

SCHA 

OPMSGOO 

0,X2 

♦ 

OPMSGQ2 

IGNORE 

SAVE THE MESSAGE ADDRESS 

' o 

. .^ o 


000 0 6 
0Q007 
. 0 - 0 , 0.10 . 

20 00 0731 
15600001 
.4.-0-0-0-0-73-1. 

P 

P. 


119 . 

120 

i?l 

OPMSG 00 

LOA 

INA 

.STA...- 

""'B'O'S'T. 

1 

;,., 8 .US-Y... . ..-.... 

.--'-'10"AD THE""NUM3ER' CF MESSAGES ......... 

ONE MOKE MESSAGE TG PRINT 

i 

O 

oaoii 

0 0012 
n n n -1 

17700377 

47200057 

P 


12 i + 0 Q i 

122 

1 ' i 


ANQ 

STI 

t ’ il A 

3 778 

0PMSGRET,X2 

MASK TO LiMir HUSSAGE LENGTH 

SAVE THE RETURN ADDRESS 


o.. 

U UIJ 1 5 

0 0014 

0 0015 

i y u y •- 

5360000Q 
47 30 0Q56 

p 


t.. *-/- 

124 

12 5 


• J ; ! h\ 0 

TAI 

STI 

c 4 

2 

OPMSG04,3 

SAVE INDEX 3 

; o 


'0 0 .016 
00017 

' I5 6'O'a'Q0'3' 
1 0 70 Oil 25 



12 6 

127 

..X.c..di... 


.mr: .. 

SGAQ 

21,3 , 

.... AD'D " T K E ■ K L U 0 G E CONSTANT 

GENERATE BASE TWO LOG CF BLOCK 

C 12 P Kipppirp 


o 

Q. 

00020 

0 00 21 
00022 
00023 
00024 

0 0 77 7 7 77 
444U Q 660 
440Q 3666 
15600301 
12 G-OGOlia 

X 

P 

P 


12 9 

130 
i i 1 

132 
■ 133 


RTJ 

SWA ,I 

.SHA-'-- ... 

INA 

SH A 

GETMEM 

TYQEND 

TYQENO 

1 

9 

GET-A BLOCK OF FREE STORAGE 

LINK IT INTO THE QUEUE 

:: O 

.O 


0 0025 
00026 

_0-0.0..2...7. 

46C0G034 
5320 0 000 
.12000017 

P 


134 

135 ■ 

..l,..3-6-.... 


.S'CTIX".. 

TIA 

.-SHA.-.. 

"^■OPHSG"0"3.... 

2 

.1.5-... . ...:.. 




00030 

00031 

' n n 9 

4040Q66G 

15277776 

, ^ ■2 [in rt H' .(1 

P.. 

' ii-n fi 0 ti 

13 7 

13 9 

. . 4 -G? Cj 

A D r 

STAjI 

INI 

. , a, W' ' ' ' 

TYQEND 

-1,2 

' "T' JvIO i * D C - ‘■'i 

ADJUST INDEX 2 

:0 


U U U 0 C 

00033 

Q0034 

c 0 4* U il u U' U 

1300 0 030. 
4240 0 0 00 


u u u u y u 

QCQOG Q 

i s> 

140 

141 

u r n w' J c. 

.OPHSG03 

u. U d rf 

SHAQ 

SACH 

4 . nr'fj N L ♦ C 

0 L 

IMPURE,2 

rib V L 1 n t L b 1 H b 1 b b r r t. K i N 1 U 

THE BLOCK OF FREE STORAGE 

O 


0'0'0 3'5"'“ 

00036 

.:.0.0.0.. 3-7....... 

'~"OE'&0"D''0"32. 

20000731 

..0..4-.4..0..0.,Q..0..i. 

.P.. 

P 


""“'"■T4"2'”.... 

143 ' 

_i.4...4.... 


.I'iJD""..... 

LDA 

A&.E-,..S__-. 

.■qP|,^3'Q"0'2-2-... 

BUSY 

1 

LOAD NUMBER OF GUEUEO REQUESTS 
. SKIP IF THIS IS THE ONLY REQUEST 


0‘’ 

00040 

01000056 

■'‘P. 


145 

146 
•147 

148 

149 


UJP 

OPMSG04 

EXIT IF NCT 

O 

"7 

o. 

00041 

0 00 41 
21000657 

P 

P 


OPMSG06 

EQU 

LDQ 

* 

TYQ3EGIN' 


.-.... ■ o 

u- 

... 

00042 

00043 

.-.0 0 . 0:4 4-.- 

'"I'57'O0'“0"0'i. 

12400002 

..77.5.1-0-4.0-0. 



.I5'0..... 

151 

.1.5,.2.-... 


INQ 

SHQ 

.-..IO.CL.-. 

"■“T ... 

2 

4 00^ 

. CLEAR THE CONSOLE 



00045 
00046 
n n n hy 

53410Q23 
2 0 40 0 657 
-1 9 n 7 V 7 n 

P 


153 

154 

1 c; c 


TQM 

LDAjI 

CU A 

2 33 

TYQ8EGIN 

.4 IT.. .. . 

.. .. . ...f.. . ’Si#’ -f-• ^ -Sir - '•.- ...-. .-....... ....-.- ......... ..... 

........ 

Q 

U U u H f 

0 0050 

xc U/ { fDU 

53040000 



1 9 9 

156 


on A 

AQA 



...o 


o 
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CPMSG 






.. 


00051 

0 0 0 5 2 

53420033 

77760000 

. n.n.n.53.. 

,.P. 


.T57..... 

15 e 

.. \ fj Q ... 

O PM 1 F). 

"TAB . 

CTO 

.pnij... 

.3'SB'"......... 


START THE TYPING OPERATION 

.. U.A.„T.T,.7.n....,.M.S.P.C.......'. 



0 

00053 

00054 

14600106 

14700060 

P 


160 

161 


ENA 

ENQ 

70 

OPMSG08 




a 

. p 

o . 

0 00 5 5 
00056 
00057 

00 77 7 7 77 
1430 0000 
01000000 

'“■'X'-'.......... 


■"'■1"6"E. 

163 

164 

OPHSG04 

OPMSGRET 

RTzJ 

ENI 

UJP 

.... 

IMPURE,X3 
IMPURE 


RETURN 


. ,Q 


..0 006 0. 

0 0 060 

. 473,0 0 0.5.7... 

p 

,,.,p. 


.165... 

166 

..,,1,6. .7.. 

OPMSG08 

EQU 

:. sT-I... 

0-RMS G REg 4 X ^. 


. SA . ME .T-HE...R..EX-U..R...N.:.A..OO...RE.S.S. . 


........'9 

G ' 

00061 

00062 

77600400 

01000053 

p 


168 

169 


PAUS 

UJP 

4 0 0 3 

OPMSGIO 


IS THE GONSGLE OCNE 

NOT DONE -- INITIATE THE WAIT 


'O 

O 

■ 0 0 063' 

00064 
00065 

14477776 

34000731 

11300000 

p 

60Q00 

0 

170 

171 

172 


“ENA,S 

RAU 

EC HA 

BUSY 

3 00000B 


ONE LESS rESSAGc lO PKlNl 

COMPUTE THE LENGTH OF THE BLOCK 


.. 8 O 


■. -""'"'o 0'0-6-B . 

00067 

. iiiioj-n. 

"“'3'0'4¥D'B'57 . 

13700006 

. p?..„n.„.ri...ri.,. n-&-5'Z. 

.P....... 

,.,p...... 


.173... 

174 

. rj..7.5.. 


'^^ADA7T . 

SGAQ 

. "'"rYQBFGI'TI ... 

6,X3 

.T YnqFGT N .. . .. 


... OF'".F'R"EE'""'S'TOR'AX-'E.... 


..6 

o 

00071 

0 0 072 

U. U 'XJ- U U 'W' . 

54500657 

47100657 

P 

P 


176 

177 


..... 

LDlfl 

STI 

r» T i 

- 1"' I'AX w X 

TYQBEGINjl 

TYQSEGIN,! 


AD\;ANCE THE QUEUE POINTER 


o 

. 01 

o.. 

0 00 7 0. 

0QQ74 

00075 

0*0 11 1 < (1 
14600657 
.OSlOOuQi. 

X 

P 


■ 17 8. 

179 

180 


1' j 

ENA 

ISG 

h REtHEM 
TYQBEGIN 
000018,1 


'■"RETURN THE BLLCK OF F.REE STORAGE 

SKIP IF THE QUEUE IS NOT EMPTY 


__ _1.0 


. 0"00'76 . 

00077 

....0 010 0. 

44000660 

04030000 

.. 010 Q. 0.1.12.. 

T...: 

..p... 


.T8T".. 

182 

., , 1 , 53 .,.. 

IHWAIT ■ 

.SWA". . 

ISE 

. ,|JJ.,p:..... 

TYQEND 

IHPU RE,0 

.........M.ANQ.0........ 


ADJUST THE ENC POINTER 

SKIP IF NO INPUT IS WAITING 

.00.. XH.£.......I.WP.U.T..FO-R..THE- .OPERATOR-..... 



O' 

. . .. . . . .•. ^J.....^....J^....^....^ ........ 

00101 

00102 

0250 0 041 
14677777 

p 

X 

rx 


184 

184+001 


IJO 

ENA 

s rv T* 

OPMSG06,1 

NCONWAIT 


CONSOLE WAIT CLEAR 


...:. 'b 

o 

0 010 3 
00104 

5 410 0 U S 7 
01000360 

r 

p 


ltt'4+ O 0 2 
184+003 


LiJl 

UJP 

OrfiSiiyRhl f Xi 

CLEARALL 


GEi Ttifc Ri»TU.Ri\. AOOREoS 

CLEAR EVERY80GY IN THE HOUSE 


.o 


o ..:...... ............... ^ ....:.:.........■..■...^'O 


O .....................________.........................:.:.........O 
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E> 


OPMSG 






195 

..X,96. 


v- V -V u- A* v- -v- 

■V- 

TT ^ 'f' ■^r "r ~i- 

- FNT-FR ^ 

i^Af -Jf V ^ Jif 

MPPP APTPP MAWIlAj TKITrDPIlPT 

❖ ❖ 

❖ 

❖ 


a 




19 7 


■V -V- V“ V* v- -V- 

V* ■if' -ir -?•' •V' ^■r ^ 


. ^ 

^ j;t :y. ^ .V -^f Af ^ -y* ^ ^ ^ ❖■if ^ ^ ^ ^ ^ ^ ^ ^ 


Q . 

0 010 5 

7773C000 


j_ y-o 
200 
201 


MANINT 

DINT 


PREVENT INTERFERENCE 




0 010 6 
00107 

.y..[j.,l..],,.0 . 

47300057 

2 0 00 0 7 31 
0350.0.1-3.4 

P 

P 

.p............ 

202 

203 

....2.0.4. 



STI 

LDA 

..A 7 1 .IT 

OPMSGRET,X3 

BUSY 

......M-AWfl-X......— 

SAVE THE RETURN AODRESS 

LOAD THE STATUS WORD 
......MUMP.TF-.n-T-T—-T-N.PR.nGRFSS. 



o 

0 0111 
00112 

03100132 

47000077 

P 

P 

20 5 
20 6 


MAN 0 0 

AZJjNE 

STI 

MANDELAY 
INWAIT,0 

JUMP IF CTO IN PROGRESS 

FORGET CPERATCR PRESSED MI 



G . 

-00111 
00114 
00115 

14300005 

00700020 

47300125 

X 

P 

2 u ( ■ 

208 

209 



'“ENI. 

RTJ 

STI 

bUFbIZ5 X3 

GETMEM 

MAN02,X3 

REQUEST A BLOCK OF MEMORY 

SAVE THE ADDRESS OF THE BLOCK 




00116 

..0.01.1.7- . 

00116 

77510400 

.1.2...00.0..Q..G2.- 

P .. 

210 

211 

. :... . gj^2 . 


HANOI 

EGO 

lOCL 

...,s.y.,A... 

.. W .... ... 

4003 

....g...... 

CLEAR THE CONSOLE 

..__FORM.-r,HAR.A.C.T..F..fi.AD.DRF-S.S.... 



O 

00120 

00121 

53420023 

15600200 


Zid 

214 

, , , ',0 4 C , 



t i 1 « 

TAM 

INA 

T *4 ki 

2 33 

4^2t8UFSI2 

INITIALIZE THE BEGINNING ADDRESS 
CALCULATE THE ENDING ADDRESS 



o. 

U Ulcc 

0 012 3 
00124 

5 3 42 U U O ;5 
14200037 
20077777 

X 

■ 21 5 
216 
21? 



i An 
£NI 

LDA 

3 oB . 

2i‘aUFSIZ-i,X2 

BLANKS 





.00125. 

00126 

..a..o.iz.7.. 

.'40"2'0'0"'0'0'0. 

02600125 
.42.0.0-3.54.4 . 

p 

.F^..0...C.7...3.1.0. 

....2T"r"~ 

219 

..2-2....0.. 


""H'AWFZ. 

""STI... 

IJD 

..SA-CH.. 

...■rMFaR'r,"X'2. 

MAN02,X2 

...B...y.s.Y.- .-.. 

BLANK OUT THE INPUT BUFFER 

....R.EM.E.M..BE..R...G..T.-I-.I-N-.FROG.R..ESS.— 



O .. 

00130 

00131 

77750000 

01000057 

P 

221 

222 

0 0 - - 



CTI 

UJP 

OPMSGRET 

TORN'THE TYPE LCAD'LITE'CN 



0 .... 

0 0132 
01133. 

4730007? 

. 0130 0Q00 

P 

2 c 0 

224 

225 


MANDELAY 

STI 

UJP 

INNA IT, X3 
e,x3 

SET THE DELAYED INTERRUPT FLAG 
AND, RETURN .... 




.....,0.,.C.1..3..4... 

00134 
.4730 0 240 

P 

.p.. 

..---2Z6. 

227 

.E2..8....... 


HAN 0 3 

EQU 

. . 

____save.THE-RETURN -ADDRESS AGAIN.- 



O .. 

0 0135 
00136 

54200125 
5320 QOCO 

T 7 c /; 0 A A n 

P 

229 

230 



_ 

rn T 

TIA 

MAN02,X2 

X2 

LOAD THE ADDRESS OF THE BUFFER 
PUT IT INTO A ALSO 



o . 

U U 0 f 

00140 

00141 

1 / Dy iL u u Ll 

01000142 

01000118 

P 

P 

U' X 

232 

233 

1 


PAub' 

UJP 

UJP 

J U J b 3 

HANOI' 

SKIP IP RE,PhAT IS ACTIVE 

REDO THE INPUT 




.0 01'42". 

Q0143 
.0 0144 

"77500400 
01000145 
.O.i.Q fl.Q 20 7 

rj 

P. 

2 2 4 
235 
23 6 



.POT'S. 

UJP 

.UJP-. 

. wwm ....^. 

.F-RROR...-. 

...DID" TnE"OFERATGR"P«ESS' CLEAR.. 

.. ...JU MP IF. H . DIC - . . . . 



o 

00145 

00146 

1 J A -1 *7 

14300222 
20 20 0 000 
14577777 
14100044 
Q62C 0664 

P 

2 3 7 

2 38 

0 7,A 



ENI 

LOA 

MAN05,X3 

0,X2 

7 7 7 7 '7 0 

ENTER RETURN FGR EXTERNALS 

CHECK THE ENTIRE WORD 



O . 

U U 14 / 
00150 
U0151 

p 

C 

240 
;2 4i 



cNiil $ S 

ENI 

MEQ 

r f If { D 

HLNTH,1 

TWA3LE,2 

LENGTH OF SECCND TABLE 




..O'0152' 

0 015 3 

... 0...0..15.4 

C1 0 0 u X S 0 
2iiGQ665 
GO 1C 0157 

P 

.2414 

2 411 
. 2 41-f. 

c 0 r' 
002 

Q03.. 


""U'JP.. 

LOQ 

-SJ-l.... 

H'iN'rA"" .. 

THA3LE+i,Xi 

_+.*.3.........____ 

CHECK FCf' ONE CHAR GOMMAN’j 

GET ENTRY WCSD ( S.AVE A ) 

.....1....-.- .-IF .SJl-CuN- OaN/T CHECK .-.. 




00155 
0 015 6 
00157 

00160 
00161 
0 0162 
.fl,016X 
00164 
00165 
0 0166 


0 5 5 0 U Q 0 IJ 
01000297 
G150 G 665 
00160 
1470CQ77 

T24TG"12Z. 

27200QQC 
.1.4-l,.0,0.a^0..3-. 
0610 0661 
01000207 
0150 0-661 


00167 

00170 

00171 

.0-0172. 

00173 

0Q1Z4.. 

U017 5 
00176 
00177 
00200 


201777.77 X 
53 70 0 0 00 
05300001 
■'OTOaOZOT'^T"' 
OIQODOOO 

12.4001.06.. 

13000003 
1240 013 03 

15 00 000-3. 

53500 QUO 


’41-)-004 


'i .'i 

243+0 0: 
244 

.2"45"''. 

246 

24 7 .. 

243 

E 49 

25 j 
251 


MAN 04 


UJP 
-U-JP, I 
EQU 
ENQ 
”"SW 
LOL 

.-.EN.I. 

MEQ 

UJP 


ERROR 

THA3LE + 1,1 - 

-3!. 

?7& 

.... 

0 j X 2 

...,L..EM.&...T..H.,.l. 

TABLE,1 
ERROR 

'TA8LE,i' - • 


ALLOW WITHOUT SJl 
NEEDED SJl 
■JUHP ' OFF 3 0 ROUTINE 


CHECK THE FIRST CHARACTER 


** 

* ROUTINE TO PACK A TERMINAL NUMBER * 

V- .....■......... ... ■ ^ ^ 3, 


PACKEND 


PACK 


LDA 

TAI 

ISG 

"'OIF'”. 

UJP 

.S.HQ..:.. 

SHAG 

SHQ 

SHAG 

TAI 


-PSA3LK,X1 
X3+PSA 
1 ,X3 + PSA 

ERROR"".. 

IMPURE 

...3............ 

3 

3 

3 

Xi 


LOAD TH£ F0INT£R TO T H£ PSA 

IS A.FSA^JHER^^^E^^..... 

.P.A.CK.A.T.ER.M.1NA.L.NUMBER. 
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OPMSG 


.Lro-2ai.. 

00202 04700000 

.00203.04000 207^P- 

00204 15130000 

00205 05177777 X 

0 0206 ■ OIW^^^ 

00207 P 

'T0207. 4'43o 0 0 0 .:. 

00210 00700114 X 

. 00-21-1--.2-500-024-7.P- 

00212 40300002 

00213 14600007 

00214 12000017 

00215 35000657 P 

00216 01000226 P 

. 011217 47J777QQ. 

.0-0-221.01.00-fl2-0-7 . P- 

00222 14300001 

00223 00700210 X 

00224 25000657 P 

00225 35077777 X 

00226 45300000 

.0~a227.47''3U“0''6'57. P 

00230 05600001 

,_.0-0-23-i.47-30-0-660 . P- 

00232 200G0125 P 

00233 143U00G5 

' Q0234-" 0450 0000 
00235 Q07Q0Q73 X 

00236 20077777 X 

^^0'0'23'7.3-4--ou-g-7-3X. p . 

00240 14600000 

...,,0-024-1-.44-OQ-Q0--5-7--P- 

00242 01000041 P 


‘■■2U'8.. 

269 

..P.7.CI . 


ANO 

QSE 

..UJ-P.- 

2 71 

272 


XOI 

ISG 

2^3 

21 h 

275 

ERROR 

.UUP 

EQU 

276 

2 77 

. 0 7 U ... 


ENI 

RTJ 

. 1 .n.,A Q- 

27 9 

280 

281 

282 

283 


STA 

ENA 

SHA 

SSA 

UUP 

284 

285 

. oap . 

uiMARKS 

OCT 

.EJ.JP.... 

28 7 

288 

MAN05 

ww r — 

ENI 

RTJ 

289 

290 

291 

MIAN06 

LD A Q 

SSA 

STAG 

292 . 

293 

,.2,Q,4,.... 


STI 
ASG 
.S-T-I. 

295 

296 

29 7 

298 

299 


w f X 

LDA 

ENI 

■ -ASE'-' 
RTJ 
LDA 

3 CO... 

301 

.,302... 

MANRET 

. RAF". 

ENA 

...s,W-A- . 

30 3 


UJP 


0 70^706 ^ .....cfl EUR j H E EC CM A N C -j r O' 

0 FOR OCTAL NUMBERS 

,E-RR0-R--...-.-...IH-E^.W-ERE.N-07. .. 

300UQ8,X1 A COMMA IS A 73 

USRMAXjXl 

PAUREND. 


2lT.......... 

GETMEM 

-Q-MARK-S- .—.-...-.-.-.-...-.-.. 

2,3 

7 

1-5... 

TYQ3E&IN 

MAN06 

..... 

E-RRG-R-.-...ERRO-R--RE-TURN.F-G-R.EX-T-ERNA-L. RGU-T-I-N-E- 

i 3 

GcTHEM 

TYQSEGrN... 

aiT15 

0,3 

T^YWEU I .. ............. 

1 SKIP IF THE QUEUE IS NOT EMPTY 

.7.7.,Q.g,R..g.,.„3..,.^. S-i^F .,T.H-E-----E--N-0-----P-G.--I-N-T-ER----P-R . 

MANQ2 LOAD THE BUFFER ADDRESS 

3UFSIZ,X3 ^ ..... 

FREEMEM 

BIT22 CLEAR THE SIGN BIT AND INCREMENT 

BX'U?...........■. 

IMPURE ENTER THE RETURN ADDRESS 

0-P-M-S-G-R-E-T—.-— ...-.-.- -.- .- 

0PMSGQ6 
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OPMS G 


30 3 + G 0 3 
303+004 
303+005 
30 3+006 
303+007 
303+008 
303+009 
303+010 
305+011 
,,G03+012- 
305+013 
30 3+014 
3 0 5+ 015“ 
303+016 


. \t. if. ^ 3^ jf. 2ff. Jjjt y ^ ^ jyc. ^ sfi Gy ^y jjf Gy 

..O.C^.T..RAC..K.--.=-=......:.......-.■'. :...-..». 

* 

ROUTINE TO PACK THE UPPER 12 BITS OF Q INTO BCD CHARS IN Ao ^ 


<RETURN ADDRESS>,X3 
<NUM3ER> 

'^O^^CTPXCK. ... 


12 3 4 X X X X F 0 R E X A M P L E 


....... 

XI -- ZERO 

-X'E--'-'"^'CNC-HA'-N&EC— .. 

X3 — RETURN ADDRESS UNCHANGED 



303+017 ^ 

A 

-- 01020 304 

PACKED AS BCD CHARACTERS 



303+GiB «. 

Q 

-- XXXX0 00 0. 

LOWER 12 BITS OF Q IN UPPER 12 







o .. 

00243 

0 0244 

a0243P . 

14600000 

14100003 

.30 3+0'22 ' OCTPACK 

303+023 

303+024 

-EQU .. 

ENA 

ENI 

-. V- 

0 

3 ,Xi 


0 02A5 
00246 

.... 0.02.4-7. 

'''I'2"0'G'0'Q0"3 ..... 

13000003 

02 .? 0 0 2 4 5.P... 

.... 3'Q''3+'I!'25 ..... 

303+026 

.... 3-0-.3.+-0-2-7.-.-. 

. SHA .... 

SHAQ 

._,T,J,D.. 

...3.. 

3 

... + .- 2 .... 


0 025 0 

01300000 

303+028 

UJP 

0,X3 


CLEAR FOR STARTS 
LOOP COUNTER 

'"OP.F'O'R.'SH'I'FT .. 

SHIFT UP TO MAKE BCD 

^^LOOP ^ FO UR.^.IXER A-TIONS^ 

AND RETURN 



















































0) . 

a). 

0 . 

0 . 

O 

O 

o. 

O . 

o 
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306 

308 


O 3 -.., 

O'. 

7 

o.... 


00251" 

00252 

.0^0.253- 

0 0 254 
00255 
00256 
00257 


00251 P 

. 2-52Q'0 0"ai"" . 

13077771 

.04.70.04.73^-^P . 

03300222 P 
14677777 X 
ilO 777777 X 
01000222 P 


Q0260 P 

■'■0’026"0 . 

00261 37077777 X 

■0.026-2.0..1.0-0.I3.-4-51...-P-. 


.0.030 .3 

0 0304 
00305 
00306 
0 030 7 
00310 
00311 
00312 
00.313 


5 OPMSG 

^ * 

.-...ABO.R.T.-rT.E.R...Ml..N.A.fc-.....:.-....-........-....:.. 

3). l,\ 3/. if. :ij. ij. ^ if if If If if if if if if if if .f if if ^ if ififififif^ifififififif^if^ifififif^lfif^ififififlf^iflf^ififif^lfiflf^if^ifififififififif 


310 

311 

312 

313 

314 
,.315, 

316 

317 

318 

319 

32 0 
.32r 

.32-3.. 

324 
52 5 

327 

328 
3 2'9" 
330 

. 3 . 3.1 . 

332 

■33'4- 

335 

33 6 

33 8 


ABO R T 


.2.5.20 0.001. 

QQ700173 P 
Q5100G01 
010002C7 P 
14677777 X 
44000650 P 

.X4 70 0 g :0'^ ’ 

00700636 P 
.01. 0,0.0.3,5.6.B. 


3 66 
367 

36 8, , 

37 0 

.3.7...i...-. 

372 
57 3 
37 4 

375 

376 

.377". 

378 
.37.8.+. 


EQ.U .. 

LDAQ 

SHAQ 

...R...T..J. 

AZJ,LT 

ENA 

RTl-“. 

UJP 


.rv'xz... 

-6 

. PACK. 

HAN05 

0PA30RT 

MAN05 


COAD THE.TERRINAE . 

.-.CON.V.ER.T. TO.BINARY. 

JUMP IF NCT LCGGEO IN 
ERROR MESSAGE NUMBER 
PUT-TttTO CONTRCL MOCE" 


ifif if if :^!fiftf^if if ^ if if if if if if if if ififififififif!fif>fifif.ififif ^ if if if ififififlf3fifif.f.f.^iflflf if if if .flfif if if if if if if if if if if if if if 

.J;................................ 

* ALLOW » 

..if.f.if.if.,if,if..ifif.3fif.if.if.if.Jfif.if..ifif..if.ifif..ifif.ifififif.if..if.^^^ 

A POii * 


EQU 

"EN1","S"' 

LPA 


.uj.p.... 


-WOFrBTT"".. 

INHIBIT 

.,S.E..T-I..N-H..I-a.. 


ROUTINE TO UN-INHI8 IT THE USERS 

"GET.“"""OP'.rN'R'rE'l'T."SIT..:. 


ifif4.if if-if if V- if if ^ ^if* ¥-V-if V-if if** if ^ if if if if* * if if if if if if ***********if***if*** ***************** 

* CLEAR,C * 

.if if 


0 

0 0263 
00264 

20200001 

12077771 


340 

341 

0 .. 

0 0265 
00266 
00267 

''l'6bl7''3'#S''“ 
0 5 6 Q 0 0,1Q 
0100.0271 

p 

' ' ' ..34'2 -. 

343 

344 


..0'0'270'. 

00271 
. .. 0 0272 

"■"O"!.0'a':0"2¥7" 

44077777 

-14677777 

.p. 

X 

X. 

...3"4"5. 

346 
. 347 

0 

00273 

00274 

35077777 

40000273 

X 

X 

348 

349 

0 . 

0 0275 

'' 01 Ou 0 222 


3 50 " 
351 

.. ' '3'53' ' 

3 5 % 

. . . 

0 









35? 



■ •0 0 276 

■p . 

.35'S •• ■ 


00276 

25200000 


3 5 9 

Q,. 

00277 

00700173 

p 

36 0 


.0'0300 

.X4477777" 

X 

3 , D 1 


00301 

00 117111 

X 

36 2 


. 0 03 0 2 

0-1.00 0 222 

p.. 

. 363 ■ 





364 


...EQU... 

LOA 

SHA 

XCA 

ASG 

UJP 


.ROUT.!. HE-.10... A L L G-W.CHA N N E-L.... G.LE..A R. 

LOAD THE CHANNEL NUMBER 


SKIP IF INVALID 


i»X2 

00Q108 
^+2 

ujr -.....-g...^..j^.g..j^............. 

SWA lOCL 

...ENA.1,0008.1.1..-...-...-....-.:............. 

SSA FLAGS 

STA FLAGS 

.UJP.......... 

}f..f if ^ if if if if :f.^if* if !f^-^ if if if if if if if ^ if if.^ if if ^if if iflf if if if if if if iff if if if if f If if if f. if if if if iff f*** ffffffifff **** 

v^' . ... .. . .....................:..♦ 

GO, TERMINAL ♦ 


********************* *** ******** ******** **** *.**** ******** *.it *************** 

r , . , , 

o 


E^U ^ 

LDAQ 0,X2 

RTJ PACK 

.E'NljS.N'OPWAIT. 

RTJ lOCLEAR 

.—,u,jp......HAN..0..5..-...-... 


■ROUTINE-TCRELEASE" THE' EFFECT OF 
STOP,TERMINAL 


****f*f****** ******************* ****************************************** 

' ■'* .........♦ 

^ LOGOFF,TERMINAL ♦ 

f ■ * 

-'■■■-'-~*~***-'****-*f-**^**^*****^**-***r**!f****-***-*~**-***^^^^ 


.L-. 


001 - 


.LD..A.Q...1-,„X2...:...X^L.0.6.0.F.F.7.............. 

RTJ PACK 

ISG 1,X1 P.REVENT OPERATOR OR MALFUNCTICNIN 

UJP ERROR . TYPEWRITER FROM HITTING PHANTOM 

ENA OPTERM SAY TERMINATE THIS GUY 

SWA QMSET 

'"ER'Q"" ."I ........S'AY TO" ^nGOFF^ .- ... 

RTJ TERM 


UJB......C.LEA-RMT.W. 


GO -CLEAR.ALL.MT. WAIT ON..ALL 










































a; _, 
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OPMSG 






362 

'.t ^ ^- 5 ^ ^ ^ ij. if if. ^ ^ if. >(. 4 . 4 ^ :ii, if. if, 3 ^, > 1 ^ ^ : 3 ^ il> ij. 3 $. 

..-V-...MT Y. ...VV. V...V.V...-. .. . ^ . 


® 


... 

38 4 

^ A/. 

4 

4 4 ^ Ai 4 At V 4 « -r ^ > 1 ^ ^ ^ ^ ^ Jlf- 

"'0 

G 

00314 P 

00314 53200000 

3 8 6 ■ 

387 

388 

M ECU 

TIA 

» 

X2 

BUFFER ADDRESS TO A 

.0 

O " 

...G '0'315 . 12 O ' O O O O Z..... .. 

00316 15600013 

..0 0 ,. 7 .46 Oil 0-3.37.P.-. 

389. 

39 0 

' '■ SRA 

INA 

.......PC-HA.... 

2 

11 

..M.fl.l... 



00320 20200000 

00321 12077771 

. 

392 

393 

LDA 

SHA 

i r U ' X. . ... 

0 ,X2 

-6 

LOAD THE UNIT NUMBER 

0 

O 

0 0’32 2.17 60"0 0 77 ......... 

00323 53 70 0 000 

00324 05377777 X 

"'394'.. 

395 

396 

........ANA. 

TAI 

ISG 

778 

X 3 

TPUNITS,X3 

' ■ .SAVE J U ST 0 N E G H A R A C T E R 

SAVE IN X3 

CHECK FOR UNIT CUT OF RANGE 

.:...:...«o 


.. ...^........ 

00326 01000207 P 

. . O.Q-327- 144-Q-Q.3..24 X ..—- 

'397.. 

398 

3QQ.... 

UJP 

UJP 

"NT 

+ +2 

ERROR 

...T.p.yM.T.;Ts.....x.-l.. 



o 

00330 14577777 

00331 35077777 X 

400 

401 

w JU 

ENQ.S 

SSA 

77777B 

8IT23 

CHECK FOR TWO TAPES ON THIS UNIT 

0 

o. 

ij U 3 3 2 U b 1 / / 7 / 7 X 

00333 01000335 P 

00334 01000207 P 

402 

403 

404 

■ ntU 

UJP 

UJP 

T A1 b L1S T , 1 
+ +2 

ERROR 

PHYSICAL IMFCSSIBLITY 

...,.o 


... g g-33 5- ..-. 

00336 14500000 

.. ..,...„0„0437....2344-0...fl-0...0.0.0.0-9.0-..0.. 

""4"0''5.... 

40 6 

... 4.0 .. 7 .... 

...'EN'I... 

ENA 

...... M. ,0.1.^ ...LQ-C-H...— 

.-'772...... 

0 

-..,.T...MPU.RE.,.2.... 



Q 

O 

00340 05700012 

00341 022Q0371 P 

.00342" 14577777. 

00343 14100327 X 

00344 04400000 

4 li S 

409 
•r- ■■ 

411 

412 

QSG 

IJI 

... . ENa+S ... 

ENI 

ASE,S 

10 

M02,2 

"7 77-7 78. 

TPUNITS,! 

0 

ZERO IS AN ILLEGAL NUMSER 

0 

0 


...""■0'Q345..0S'I00'312 . K .. .... 

00346 Q100C207 ? 

...... fl„034.Z . 40 37777? X .......-. 

413 

414 

-.4 1 .£4 -f: 

. .. 

UJP 

...... S.T-.A.-.t_ 

TAPElIST,1 
ERROR 

...T.NUHLIST. X3 

NUMPiFP GF THIS TAPF FOR fR9G 


O 

00350 14477776 

0035 1 34000730 P 

n o . c ^ a n n a n . . 

4 K 

416 

•. - y 

ENA,S 

RAO 

X T A 

-1 ■ 

SCREAM 

TURN OFF THE RACKET 

0 

o. 

li li O' ^ 'i-* -5 ^ 0 'M 0 0 U 

00353 40577777 X 

00354 35000331 X 

.1 

41S 

419 

: Ji. r-*- 

STA 5 I 

fBLKLIST,! 
BIT23 . 

--“UN 11 NUSlBtK 1C (A) 

SAVE THE UNIT NUMSER IN THE TABLE 

..:... 0 


00355 40106545 X 

Qil3FS F 

.... 0....0-3 5 5 lkS7777T "A .:■.-.:. 

420 . 

423+Cai 
. 4?.0-*.O.QE. 

is'T k 

GLEARHTW EQU 
....... p.M.A .. . 

TfiP£CIS'T,Xi'' 

* 

.NHTH A IT..-. 

............Mft.G TAPE WIAT . 


o 

00357 14100222 F 

420+003 

420+004 

' ENI . 

HAH05,Xi 

V JdL 

RETURN address 

0 

o 

0 b s3 D u i 

00360 5k377777 X 

0 0 361 443('£3’o5 P 

4 it J + u 0 5 
42Q+G06 
423+007 

0 LEAR ALL LUi; 

LOI 

SWA 

.lOLE.XS + PSA 

CLEA Rail 

GET POINTER TC THE FIRST USER 

SAVE SITS TO Clear 

.:...:..... 0 


00 36 2 53 23 0 2 5*3 

■ Q0363 14400000 

... 0..0..36..4. 00 70 0 3,01. .X........... 

420+Q'0 S' 
4 2 9 + 0 £19 
.,4 211+.0-10..., 

TMI 

CLEAR8IT ENA,S 
..... R;TJ_- ' - 

f'S” ij jl X. £ 

IMPURF 

.-.XC€L£.AR-.„^ . 

NUMBER CF USERS TC CL'E'A'R' .:...^. 

GET THE 3 IT 

aw ft SP.vtCKR 


O 

00365 20300003 

00366 53700600 

. ik-nTic^y -iio-SATi r% , ... 

4 2 Q + C1 i 

4 2 0+012 

LOA 
[ •- 

0 f X 5 H" PS A 
X3+FSA 

GET PGIN't EPv TC HE XI USEF 

AND POINT TG HIM 

0 

Q. 

U U vj D 1 11 ^ D u y o . P 

0 0 37G 0110 a SCO 

M- £; tJ ^ 1 . Q 

420+014 

429+015 

1 . j 'J 

UJP 

L-* — L-, 7 1 9 X L- 

0,X1 

LOOP iXLuUi Or UbERS 

RETURN TG CALLER 

:.■... .....:.— 0 


.0^ O' 3 7 1" —71^5; ■ g-g-Q^- 55-3 .p.-....— 

00372 50077777 X 

...... 0,.0,3,7.3 . 60..0„0.,£16.5.3 ...... 

^ 5 5 

H C ’i' 

- '^4^-5 ... 

HOE srQ 

HU A 

.............AOA-...... 

.T'EHP 1.. .. 

DiO 

-7..EMP 1- ____ 



. 

00374 01000337 P 

426 
•4 2 7 

UJP' 

MOl 



c\,_^ 


42 9 

430 

+ STOP,TERMINAL 

■4 

4 

...... . .. 0 

:;.i 


431 

..'..4.,3.3...... .. 



qS- 

7 

00375 P 

00375 20 200001 

., n n "^7 A 17n777A7 

434 

435 

S EQU 

LDA 

.. . .,cw A n 

lfX2 

ROUTINE TC STOP A GIVEN TERMINAL 

...:.... 0 


uUOfO XOuf i t tD 0 

00377 00700173 P 

00400 14677777 X 

f i. 

HOC 

437 

438 

0 n H u 

RTJ 

ENA 

“• 1 c 

P AGK 

OPWAIT 


d 

X /• 

0 0 401 00777777.X...... 

00402 01000222 P 

"'43''9''''".. 

44 0 

. .. 

UJP 

"TUSET 

MAN05 




Q _ . ....- vy ......^---■■■•O 

o' 


o 
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0 0403 
~iro"4D4‘' 
0 0 405 

.00406-- 

0 0 407 
0 0410 
-0"O-41~1- 
0 0 412 
0 0 413 
0 0 414 


0 0 403 
53200000 
'1470 OO'Or 
13000043 

.-4730.0-'^^^^^^^ 

14277777 
14104000 
- 1'4 30 0 41 * 6 ” 
14600030 
0 0 77 7 777 
"DTOO OOUT' 


^4 . ^ 

^ ^ :!f. if, Jf if. if if. if ififif if if 


END EQU 

TIA 

......EN"Q. 

3HAQ 

.-.-.ST-I. 

ENI 

ENI 

ENDREAD ENA 
RTJ 


X2 

0 . 

24+11 

.EN002->X3-- 

REAQ,X2 
40008,XI 
"E-NO-Q rFX '3” 
IMPURE 
FINK 
TMFO'RE 


.eF,G.£,:..NUMB.E.,R..„.„LC.(A.)....,. 

FORM CORE ADDRESS IN <Q) 

.SAV:E.T-HE^.return.ADDRESS-^. 

READ A PAGE 

•ENTER THE COMP i;£ttgr— frQDRESS” 
ENTER THE ADDRESS OF THE END 
BLOCK AND READ IT IN, 


00416 
00417 
0 042 0- 
0 0 42 1 
00422 
00423^ 


-04-0^0-0-445- 
142Q0360 
14604001 
•40 2 77 777- 
1300001/ 
44277777 
"Oi SO'O 0 0 0 


END04 


-U-UP-— 

ENI 

ENA 

SHAG 

SWA 

'U'JP"'" 


IDLE,X2 

40008+1 

■F'C,-X-2--. 

24-9 
PFi,X2 „ 

■ 0 , 'X 3. 


-.I.R.REG-Q-VE-R-A84-E.E-RRGR- 

CHANGE IDLES PSA 


FORM QUARTER PAGE ADDRESS IN (A) 

. AND ,.„S.ET,.,.IC'.LES.PAG.E_„iI,kE,„„.. 


0 0 424 
0 0 425 
a0426- 
0 0 427 
00430 
'Q'a'434'' 
00432 

.00-433- 

U0434 

Q0435 


20 00 0261 
17677777 
'03i0 0'2'0 7' 
14677777 
34000424 
'T43aQ40'T 
0 0 77 7 777 
4420 0 22-2-- 
14600307 
01CQ0440 


--E.--£Q-U.. 

LOA 

ANA 

. 

ENA 

RAD 

.. .ENI" 

RTU 

- — —„— 

ENA 

UJP 

.""""""...TER'HINA 


INHIBIT 

IRUNPEND 

■ERRO-R--.. 

N0END8IT 

INHIBIT 

"'EWD'TX'S'""" 

GETPAGE 

.-l4-AN-0-5.-,-X-2-- 

OPTERM 

T.3 


-.RO-UTI-NE-T-O.END.THE.S-TSTE-M-.--- 

SEE IF COMMAND LEGAL 

SEE IF INITIAL OR END RUNNING 

■YES-'-'-'-NO* CAN" END'""...... 

GET END RUNNING SIT 
SET INTO INHIBIT HORO 

'COH'PLETION'RETURN " .. 

START A PAGE COMING IN. 

-00NT. -OP- INHIBIT ... 

SAY TERMINATE THE USER 
GO DO IT 


^- Si -¥¥ sf - ¥ ¥■»■¥-¥■-Si V-* 4 -V’*¥■**■*■**** *^* 

* 

T'P.........-.-.-...-...—.—...-.......—.... *" 


» 4 !f4- 4* 4 - 


: 4 4 4 4 4 444 4444 44444 444 4 * 4.4 44 . 4 . 4*4 4 4 .. 44 .. 4...4 4 .. 44.4 


00436 

00 43 7 

00440 

...0..O.44-1 . 

00442 

00443 

00444 

00445 

00446 


00436 P 
14600 434 X- 
00437 P 
i420Q4«-'' P 
' ' 004^0 P' 
44 00 0£-50 P 

.,.44.1.7..7-7ZT.X. 

14700000 
Q070063& ? 

10500001. 

G100G442 P 
0120 DC00 


EQU 

..EN-A- 

EQU 

ENI 

"'""""TQ'O'" 

SWA 

-EN-I- 

ENQ 

RTJ 

ISO 

UJP 

UJP 


.OPTERM”. 

4 

.I|X2. 

* 

' QMSET 

.T RMNUHjXl- 

0 

TERM 

1 , X1 
+ -3 

a,x 2 


ROUTINE TC LOG CFF ALL REAL-TIME 
SAY -OPERATOR TERMINATTON. 

O P.IN H, 18, IT._,.AF T E R,.G_F,FIC IA L ,.,I.ER„.M 

SET REQUEST FLAG 

OONT LOGOFF BATCH JOBS 

OONPT-IOGGFF PHANTOM... 

RETURN TC APPROPRIATE PLACE 


44 44 4*44 44 44 . 444 * * 
* 


44 44 444 4 4444444 44 4444,44 44444: 


INHIBIT 




.44444444444444444 

. .,.... ... ♦ 

♦ 

4 


"0'0447' 

0045Q 

.0..045.1. 

0 0 452 


0C447 
■X4677777' 
35000430 
,. 4 . 00 - 0-0 45 . 0 .- 
01000222 


I . EQU 

....ERF' 

SSINHIB SSA 

.S-EX-INHIB.ST. A. 

UJP 


"O'Pi'exT" " 
INHIBIT 
„.I.MH.La...ITl 

MAN05 


ROUTINE TO INHIBIT USERS FROM 
XO"GG"I N G I'N'T'O."T'R'E.S Y'ST E'M.... 
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OPMSG 


0 045 3 

-Q0454 

0 0455 

,.0.0.45-6- 

0 0 45 7 


00460 
0 0 461 
■ Q'0-46 2 
0 0 46 3 
0 0464 


00465 

00466 


00 453 
20000451 
17600427 
03000207 
14677777 
01000450 


.-.0.0460. 

20000453 
17600 454 
03 000207- 
14677777 
01000450 


00465 P- 
14&77777 X 
010o£4S7 P 


-¥• ■Sf ■>•¥• ■¥■ A'■¥■•¥•>;■«••»■¥• V ■If •¥•¥¥!? Af ■¥•-V-Af ¥ Af Af Af •Af4<--Af-Af¥AfAf-AfAf«i-¥-'Af'AfAf'¥-AfAS »Af ■»• Af Af Af Af Af->AfAfAfAfAfAfAfAf 

DIE ECU QUICKLY TERMINATE THE SYSTEM 


EQU 

LOA 

AN A .. 

AZJjEQ 

ENA..- 

UJP 


INHIBIT 

noendbit 

ERROR 
D-IESI-T - 
SSINHIB 


LEGAL CNLYIFEND IN FROGRESS 
NO END - ERROR 


. JJ. Af. 

Af 

...SUSPEND.... 

•¥■ Af Af Af Af Af Af ■¥■ ¥Af Af ¥■ A- Af Af Af Af Af Af Af Af Af AfAfAfAfAfAfAfAfAf^JfVAfAfAfAfAf 

.S-US-P-.-.EQ-U---.-.-. 

LOA INHIBIT 

ANA N0EN08IT 

.A-Z-J-,EQ ■ ' - ERROR . 

ENA SuseIT 

UJP SSINHIB 

¥ 

... 7 . ..H.A.R.M . : ....-. ' .-.-. ^ . : . 

¥ 

¥¥¥¥¥¥¥¥¥¥ ¥¥¥¥¥¥¥¥¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 

...EQU.. .... 

, ENA WARN 

UJP T2 

.....-.NES.S.AG..E/N-O.M.ESS.A.GE---.-... 


^ If A^Jl. If V ^f ^f 4f # ¥ ¥ ¥ ¥ ¥ 

¥ 

¥ 

¥Af ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 


■ENTER WITH A=4HMESS- 
€NT£R WITH A^=4HN0HE 


TO TURN ON 
TO TURN .OF 




LEGAL ONLY IF ENO IN PROGRESS 
END-NOT -IN -PROGRESS -ERROR 
GET SUSPEND BIT 

SET INTO INHIBIT WORD 
-¥-¥■-¥"¥'¥ ¥'¥ ¥¥¥¥¥¥¥ ¥'¥ ¥¥¥¥¥' :¥'¥¥'¥ ¥¥'¥¥-¥ ¥''¥¥ ¥" 

¥ 

.. : . ' .. : .......... ¥ . 

¥ 

¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 

SAY TO WARN USER OF IMPENDING 
DOOM. 

¥ 

.......,_,¥. 

¥ 

¥ 

MESSAGE (EVEN) * 

F MESSAGE (ODD) . » 

¥ 


...0....0..-.4-6-7. 

00467 P 

..12_0.777.76. 

552 

... 5 , 5:3 .. 

HESONOFF EQU 
...gHA . 

¥ 

.-1 ..■. 



00470 

17600020 

554 

ANA 

20a 

THE 

COMMANDS DIFFER IN THE PROPER 

0 0471 

44077777 X 

55 5 

SWA 

MESFLAG 

SET 

MESSAGE FLAG 

00472 

-010-0 0 222 P .- 

-556 

UJP 

MAN0 5 





O^’ 

Q, 


O 














































(I 
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OP MSG 








559 

. 5 .. 5 ..O. 


^ ^ 4^ if. if. if. if. 

USERLIST-- 

® 






561 

-r -r ^ 

'r V ^ ^ V T>* V" ■V' 

c 

0 0473 

00473 

14200205 

P 

X 



' 5 b"3''‘. 

564 

565 

USERLIST 

EQU 

ENI 


. 00474 - 

___ 0-04-75---- 

. 

._2. nE-0 046-7- 

"P. 

.„x_ 



.5E"6". 

567 

..5.5...8.. 

.U-SE-R-Q.2.. 

“ojp. 

LD A 

G 

0 0476 

0 0 477 

05600001 

01000510 

p 



569 

570 


ASG 

UJP 

G . 

0 05 00" 
0 050 1 

0 05 0 2 

_ ^ g Q ^ 

12000001 
0330 0510 

p 



"5'7l"''"'"™'~ 

572 

573 


SHA 

AZJjLT 


. "-a"0'50"3 . ■' 

00504 

. „„q.{)_5.0-5-. 

14200505 
01000512 
. pn 377777 

p 

p 

.V . 



"■574 . 

575 

.. _i.7-.fi___ 


"ENI. 

UJP 

o. 

0 0506 

0 0507 

12077760 

53600000 




577 

57 8 


SHA 

TAI 

O .. 

• oogi'tj-- 
00511 

0 2 6004 r5 ‘ 
01000222 

P 

P 



7 / 5 

580 

581 


I Ji/’ 

UJP 


..'.n„n,,.c ;,4 . 2 . 

00512 

20377777 

P 

....Y._... 



58 2 

583 

.g.|i,..£x.. 

ACCPRINT 

EQU 

1 n fi 

O . 

0 0 51 3 
00514 

14100006 

13077747 




585 

586 

U 04 

U. 0 H. 

ENI 

SHAQ 

o „ .. 

..iJ 01)4'5~~ 

0 0516 

0 0517 

"""5'l'QtJ''0'3‘Tc‘' 

43403254 

02500514 

X 

p 

p 

CO 65 c 

0 

5 d f 

588 

589 


U V’ A 

SQCH 

IJD 


. OOSE'D . 

0 0 521 
__0052 2- 

. 2TZT777T 

13000005 
..0 550.0-04.1- 

X 



590 

591 

_.,.K..q.o.. 


i.0 

SHAQ 

ASG 

O . 

00523 

0 0 524 

01000542 

13077771 

p 



593 

594 


.... --- 

UJP 

SHAQ 

o .... 

Q0‘j>25 

0 0526 
■ 00527 

4100 0 655 
1460Q077 

,._,4.2,.0 0 3..,2.7,0„„ 

~p”~* 

._£. 

0 0. . 6. .5 6. 

0 

595 

596 

597 


ST Q 

ENA 

S ACH .. 


00530 

0 0 531 

.. 04 , 53.2 . 

14600021 
21300505 
. 1.417777.5 

X 



59 3 

59 9 

.6.0..Q. 

U05 

ENA 

LDQ 

ENI. 

o 

00533 

00534 

A n rr 32 or 

17577770 

12400003 

r% 



5 01 

6 Q2 


ANQ,S 

SHQ 

o _ 

u 0 2 Cl b 
00536 
00537 

43 40 3252 
02100533 
13000030 

p 

p 

0 0 652 


t> 0 3 

604 

Sil 5. 


SQLH 

IJI 

SHAQ 


0 0 540 
00541 

. _.-.0.0.542. 

‘"'TTOETEEO . 

01000005 

...-.i-.3...0.0.E-0.2.2- 

'"p. 

p 

Q 0 652 

“■'■0 .. 

' 0 3 6.... 

6 0/ 

Saa.:. 

..t-Oc;. 

.EC HA 

UJ? 

SHAQ ___* 

O ... 

00543 

00544 

14100005 

13077747 

C 4 rj v-t C 4 c 

v.' 



609 

610 
{’*14 


ENI 

SHAQ 


U U b 4 IP 

0 0 546 

0 0 547 

!PjLUulibXb 

43403264 

0 2 5Q 0 544 

p 

p. 

0 0 655 

0 

611 

612 

613 


U a H 

SQCH 

IJD 

. 

. D'0'55 0. 

0 0 551 

r4'60'0 023. 

01000531 

p 



614 

615 


"EMA"..... 

UJP 


o 


o 


o 


¥ ^ 4 4- >l-4 4 4 4 4 4 4 4 44 44 4 4- 44 44444444444444444 


44444444444‘ 


USRMAX,X2 

■^■O‘SER^0"4‘....... 

-.p..SAaL-K-rX2„-.-. 

1 

USER04 

.. 

1 

USERQ4 

■■■■^'■+2',.Xr”"'..-... 

ACCPRINT 
_-j..g,R#I.HAL-,-X-3+P 
-15 
X2 

^^tJSeR'r2TX2 

MAM05 


4444444444444444444444444444444444 


PRINT GUT A LIST CF ALL USERS 


.^4.0.AD--THE.PSA.R-CXN-TER.-.. 

SKIP IF PRESENT 
JUMP IF NCT 

CHECK IF LOGGN/LOGOFF STATUS 
JUMP IF IT IS 

.enter:.T HE.R E T' q S...-. 

PRINT OUT THE J06/USER NUMBER 
-404D.THE--TERI4INAL-.NUMBER..-. 


4 

AGGNUM,X3+PSA. 

- 24 

. 

UBUFFER+4,1 
U 04,. 1 

'^WR¥0H,'XTTPSA'''. 

6 

'^"uos 

- 6 

-U'BOF*fER+3 
7 78 

UeUFFER+16 

'T7"'....... 

TERMINAL,X3+PSA 
... 

777708 

3 

■ U8UFFER+2,X1. 

*-3,Xl 
2 4 

'W0FFER‘''^'~“'"'^... 

OPMSG' 

.^44-.. 

-J4 

03 U 

USUFFER+12,1 
*-3,1 

.... 

U05 


.LGAQ.THE. AGGOU-NT.NUMBER. 


EOAD.T'HE''USER.COD'E^ 


ERTER.WS‘SAGE' LENGTH 

LOAD THE TERMINAL NUMBER 


■ENTE'R'^'T'RE.ME'S'S'AGE.LENE'T'fl'" 
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OPMSG 


0 0552 
■0'055T 
0 0 554 

.UO-55-5. 

1)0 55 6 
00557 
0 0 5 6‘0~ 
0 0 561 
00 562 
00563 


0 0 564 
00565 


0 0 56 6 
■fl056T' 
0 0 570 
.0^0571.. 

0 0572 
0 0 573 
00574 
0 0575 

.0'0576^ 

0 0577 

.0,-0.60 0 

0 0601 
00602 
0 060 3 
00 604 
0 0 60 5 
0 060 6 
0 0607 


00610 
00611 
0 0 612 
U061 3 
0 0614 


00615 
0 0616 
00617 
0 0620 

0 O'S 21. 

Q0622 
,.,0,0.&2,3. 


Q 0 5 52 
04 00 0 00 0 
)0100 0207 
47000125 

.47 20 0 6 0 4. 

47200552 

54300240 

47300602 

14300566 

47300240 

OTOOD'222^ 


40-564.P- 

P 

01000572 P 


00566 

14700564 

^r46'0'Q5Ti’" 

01077777 

....fl3...5.0..0..6.0..2- 

00572 
44000612 
14700000 
13Q77760 
14 60 0 0 011 
14101000 
14200407 
.14300604 
00700413 
OIQOOOQO 
00777777 
14200000 

i 3 0 a e a 1 7 

'7764000.1 

eiOCACOQ 


0D61Q 
4 7 00 0557 
77640001 
14 60 0 000 
4 7 00161'2 
01077777 


p 


0 0 6 2 .•> P 

SOOfinEfT 
0460 Eoea'' 
01300000 
47300602 P 

'■■4'r3tjW5'2.P. 

47000604 P 
.01000566 P.. 


618 

-649. 

620 

-62'2" 


66 0 
6 61 
66 2' 
66 3 

fcG4 
66 5' 
66 6 
be,I, 
66 6 
o6 4 
671 - 
6 71 
6 7 2 

.'67'3'" 

674 

...675- 


^ ^ ^ y if-•V' ^ ^ if if 3^ ^Jf if ^ - 

.«. - PAGKsXXXrGXEXUXX. 


.......’...........*... 


¥ Sf-■¥• ■¥• ¥"V-¥ A'Af •If-SP -V V- V-V- «=■¥•-9 ¥ »■¥■ 


623 

624 

PACKREQ, 

PACKFLAG 

EQU 

ISE 

* 

IMPURE, 0 

625 

626 

.6-2.-7. 


UJP 

STI 

..,S..T..I.—..- 

ERROR 

NANO 2,0 
.P. ACK 8 L K-. X 2. 

628 

629 


sti 

LDI 

PACKFLAG,X2 
MANRET,X3 

6o U 

631 

632 


'S i I 

ENI 

STI 

P A C K E X11 f X 3 
PACK02,X3 
MANRET, X3 

633 

634 

.6,3,..5.. 

.P....A.G..R...Q.1. 

""0"U"P'. 

.E.Q.U.-..-. 

.M"A'N¥5.. 

♦ 

63 6 
63? 

^ a , 


sfi 

UjP 

PAGK£XIT,X2 

PACKQ3 

O u 0 

639 

640 

PACK02 

EQU 

ENQ 

■¥■ 

PACKOl 

6'41 

642 

...642 ... 


"'E'N"'A"“.. 

UJP 

AZ J . LT. 

.■■^■■¥'2.... 

GET3UFF 
■ PACKEXIT 

6 4- 4 
645 

.... C. it C., ' 

PACKC3 

EQU 

SKA 

-»• 

PACK PAGE 

•D H- D 

64 7 
64 3 

HSF LOAD 

C N; Q. 

SHAQ 

ENA 

..,,......„............,.... ....... 

u 

•• 24-^ 9 

IMPURE 

64 5 

65 0 

- 651. . 


ENI . 

ENI 

.PMX 

"' iO'QOBjXl. 

REAa,X2 
... PACKI?1K,X3- 

652 
C5 3 

- . - - ': 1 

RTJ 

UJP 

'} T 

F rriK 

RE 

654' 

6 5 5 
__65 6 

PACKBLK 

.4 * o 

ENI 

SHACi 

M A L» n li R R 

IMPURE, X2 

2 4-9 

b D 7 
65 6 
65-*? - 


APF ... 

uJP 

P'FLOD 
' C DRE 


HGUNTRET EOU 
S T'I 
Arr 

PACKPAGE ENA 


JFHr 


JP 


c Uu 
! jA 

ASE 
UJP 
S t 1 
-SIT'" 
STI 
...uap- 


PACKFLAG,0 
PFLOC 
THRUPE 
'P AGKFAG£,Q 
G IV b U F F A 

* 

P A C K F L A G 
0 

Q ,X3 

PAGKEXIT,X3 
PAGKFLAG,X3 
PAGK8LK,0 
.-.aAG-K-O-E. 


.SH,QUkO.WE. JLL.CTHE REQ U EST 

SAVE THE INPUT REQUEST 
.RE-MEM-8iR-.WHER-6.T-H E SLOCK.-IS 


DON/T ALLOW ANY MORE REQUESTS 
LOAD THE RETURN ADDRESS 
■SAVE THE RETURN 
CHANGE THE RETURN TO RETURN TO 
HERE 


SAVE THE RETURN ADDRESS 

ENTER INTERRUPT RETURN 
ENTER 'IHHEDIAIE'RETURN ' 

.EX-IT-.IP.N-0.SL-C-C-K.:.-.- 

SAVE THE 1/4 PAGE AGORESS 


FORM IS SIT GCRE ADDRESS IN TQ) 
ENTER THE DISK ADDRESS 
READ IN THE WHOLE' FILE' BLOCK 

ENTER THE INTERRUPT RETURN -- 


ENTER THE BUFFER ADD-RESS 
FORM 1/4 PAGE AC0RES3 IN A 


ALLCii T.-E NEXT MOUNT REQUEST 
.RESTORE PFLOC 
ENTER TH6 1/4 PAGE NUMBER 
FORGET WE PAVE THE CORE 


THE ROUTINE IK CORE 


EXIT IF IT IS 

SAVE TH.F RETURN ADDRESS 

SAY THE.'ROUTINE IS CCMMING.IN" 

SAY NO MESSAGE AREA 















































0 
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OPMSG 



.. 




67 S 

^ . 

. If ^if -^^if ^afifififififififif.^2fifif^^if if^ ^ 3f.if:f^^:^ifif ^ if if ifif^^ 

.Y.T KlT^.irr...........:.:.'.;.:.... ^ .... 



0 



680 

¥ 

^ ^ ^ ^ tf. ^ ^ if. ^ if. >f. ^ if. if if. if. ^ if. if. if ^ if if if if sf if. if :f :f if if if if af if if if ^ if 


''G 

Q 

0 0 624 
00625 

20200001 

13077755 

.. ■ 0.Q.2—.. 

683 

684 

X 

LDA 1,X2 ROUTINE TO SIMULATE AN EXTERNAL 

SHAQ -24+6 EQUIPMENT INTERRUPT 


. 

.. . 

00627 

0 ri 63 0 

12 4 0 0 0 0'3.. 

13000003 

17 60 n 0 77 

... ms .. 

68 6 

687 


SHQ 3 WITHOUT STOPPING THE PROCESSOR 

SHAQ 3 

ANJA nn77R MASK TO AN INTERRUPT OODF. 



O 

00631 

0 0 532 

44000005 

00700004 

688 

689 


SW'A 0 00 0 58 STORE'f HE"lNf£RRUPt 'code AT 0 0 005 

R'y §AV£_pC AT 000 04 AND INTERRUPT 


■'O 

O 

0 0 63 0 

' U 1 OO'U 2 22 " P. 

69 0 

691 

..uj r. .. .. . 


.sO 




693 

694 

. .69-5 

if 

THIS ROUTINE IS USED TO LOGOFF A USER ♦ 



o 



697 



o 

o;. 

o 

0 0 634 
00635 
00636 

14'&77'777 “ X . 

00700256 X 

OlOOOOOQ 

c 9 8 

699 

700 

! CKHA 
TERHY 
TERM 

t-KA VANllsH UAUL UtSiKUL! 

RIJ GMQSET 

UJP IMPURE 


___ '...O 

...0 0 637' 

0064G 

20100475 X 

05600001 
n 1 on nf>Hf% p ... 

7'Oi 

70 2 
■- 70 3 


LOA PSA3LK,X1 

ASG 1 

n jD TPPM 



o 

00642 

00643 

53 70 0000 

0.3 3 0 0 o 3 4 P 

704 

70 5 


ww 1 -S t«fV'rJ . . ... .~ . .. 

TAI X3+PSA 

AZJjLT TERMX 


o 

o 

'30644' 

0 0645 

0 0 646 

20'3'77777"'X ... 

37077777 X 

04700001 

■ '7 0 6 . 

70 7 

708 


LDA S YSCOD.E » X3+rSA 

LPA SIT19 CHECK BATCH JCS BIT 

QSE 1 SKIP IF IGNORE BATCH 


. . . . . .. o 


..... o"Q'64T"" 

0 0 650 

... 0.0-651 . 

. aTrij"0"6"3'6' . p ..... 

14600000 

0100 0 635 - P .-.- 

... ro"9'.. 

710 

. ...7,14 . . 

QMSET 

‘"AZ"J","N'E T'ER'H.....L'E'AYE THE BATCH' J09' "A'CCN'E .^ 

ENA IMPURE SET APPROPRIATE FLAG 

...yjp..___ XFR+iY- ........-...-.-...-..-.-..-.. 



o 

0 0 65 2 

45454560 

712 

713 

U3UFFER 

BCD 5tNNN JJJJJJJ/UUUUUUa 


o 

o 

00657 

00653 P 

ooooaoao 

00660 P 

'714 " 

715 

716 

T EfiPi 

TYQBEGIN 
TYQENO 

"t'QO'...U 8 UFFER + 1 ' 1 WORD' TEMPORARY .... 

VFO 09/000,A15/IHPURE,H6/A,C3/0,A15/TYGeEGIH+IHPURE 

EOU TYQ 8 EGIH + 1 ..J.. 


...O' 

1 

0 0661 

0 0 66 2 

00661 P 

27 000276 

44 00 Q31 4 

717 

71 8 , 

7l9 

TABLE 

EQU + 

VFD H6/G,O3/0,Ai5/G 

WFO’.H 6/M ..03 /.Q ..A.I. 5 ./.M.. - ...- -...- ..- 



o 

0 066 3 

64000473 
. 00003 

. ■ '•■t J- . 

72 0 

721 

LENGTH 

VFO H6/U,03/0,Ai5/US£RLIST 

EQU +-TABLE 


~. 

o 

0 0 664 

00664 P 

44256262 

7 21 + U 01 

722 

72 3 

^ ""bs'iGN' 
TWABLE 

8I1"'0N 'AM' EN'rRY Hfc.'""S'''Ol ....... 

EQU ^ . ■ 

VFO H24/HESS,09/000,AIF/HESONOFF 


.... O' 


. -Q-g-gg-g--- 

0 0 670 

0 0^72 

"'‘4"5¥6¥4"Z5.. 

6621.5145 

2i22 4 651 

..' 7 - 2 - 4 -- 

72 5 

7? 6 


¥'F'0""""^'.H'Z4/ NOME , 09/ "0"0"0", ATE/'MES'CN'OF F ............ 

VFD H24/WARN,09/ 000, A15/W 

.y.FO.. H 24/.AS0'R .0.9/-O.C.O..-A15./-A80R.T- ...-...-.....-.-.. 



o d 

00674 

00676 

. 0 0 70 0 - 

00 702 

0 0 704 

21434346 

24 312 560 
■ 62 646247 

23432521 

67314563 

727 

72 8 

- 72'^^ . 

73 0 

730+0 Cl 


VFO H24/ALL0,09/000, A15/A 

VFO H24/0IE, 09/000 ,A15/DI£ 

'VFO - H24/SUSPiO9/Q0Q, A15/SUSP ' " ' - ' ' 

VFD H24/CLEA,A24/C 

VFD H24/XIMT,09/4SO, A15/ X 


.. o 

.o 


.... 0'0'7'a"6 . 

0 0710 

0 0 712 

''"Z'5''45"2"4"o0 .^. 

31453031 

47212342 

. 73'2.:. 

73 3 

7 3 4 


■"'y'F'O'""... ..|:^'2'^7-£-|q0- ^24/'r'' .....■..........:.........'..... 

VFD H24/INHl,A24/I 

VF+i H 24/PAGK4 09/0 n 0 , A15/PACKREQ 



O' 

10 

o. 

0 0 714 

0 0 716 

42314343 

43462746 

734+iOi 

7 3 6 


VFO H24/klLL^09/4eG;A15/klCL " 

VFD H24/L0G0,A24/L 


o 

■ u U Y df tl 

0 0722 
00724 

b c DO 4 n 4 f 

63255144 

62635163 

f r 

738 

73 8 + 0 01 


vru H 0 I Or f A£i4/5 . 

VFD H24/TERM,A24/T 

VFD H24/STRT,09/400, AiS/STRT 


... O 


...... -oo'7'2-6"'- . 

""2¥6'4'4''44T ..... 

00044 

...'73. 'arf'O-O'Z"" 

74 0 

741 

WLNTH 

........ ........... 

EQU ^-TWABLE 



o' 

00730 

0 0731 

00 00 0 000 

0 0 00 0 0 00 

742 ' 

743 

SCREAM 

BUSY 

if 

VFD A24/IMFURE HAVE THE CONSOLE CRY IF NON ZERO 

VFD A6/IMPURE,03/0,Ai5/IMPURE 

. K?cr r* AT T Vi c c c“? r r T t.kj oo nr cir cc 


. . . .. o 

o,- 



/4H 

745 

746 

if 

NLuAI iVc: buz Lt 1 IN rKUuKtiCsb 

LOWER 15 BITS IS COUNTER OF 

NUMBER OF QUEUED OUTPUT MESSAGES 


.. ^ .... o 




..-.. . 7"47-'.- 


-EN-D.. ..... ... .. ......... ..... 



o' 

NO LIN Fs WIT H ER RORS 












.. : ...'. . o 









_a 







.o 

O' 














..... o 
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1 


OPHSG 



.A.^. 

ABORT 

.AGCNUM. 


X , 

DO 2 b OP 
0025iP 

.328. 

312 

.._,i.4.. 

727 
726 
..584 

0 0 675P 
00673P 
- 0 0 512 R.. 



0 ■" 

ACCPRINT 

9IT15 


X 

U05i2P 

583 

15 

' "3 

290 

OOOOQP 

00225P 

575 

00504P 

0 

. . , 0 . 

3IT22 

8IT23 


X 

X 

X 


...—. 

17 

18 

.-70/- 

299 

401 

• 0 Q 6' 45 P. 

00236P 

00331P 

419 
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